home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / pointer.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-16  |  2.5 KB  |  122 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "pointer.d"
  17. #include <math.h> 
  18.  
  19. #define    CLASS    Pointer_c
  20. #define    ivType    Pointer_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    Pointer_c;
  25.  
  26.  
  27. #line 28 "pointer.c"
  28. typedef struct  _Pointer_iv_t  {
  29.     void * iVal;
  30. }    Pointer_iv_t;
  31.  
  32.  
  33.  
  34. #line 21 "pointer.d"
  35. cmeth objrtn Pointer_cm_gNewWithPtr(object self, void *val)
  36. { 
  37.     object obj = oSuper(Pointer_c, gNew, self)(self); 
  38.     ivType *iv = ivPtr(obj); 
  39.     iv->iVal = val; 
  40.     return(obj); 
  41. } 
  42.  
  43. imeth void * Pointer_im_gPointerValue(object self)
  44. { Pointer_iv_t *iv = GetIVs(Pointer, self);
  45.     return iv->iVal; 
  46. } 
  47.  
  48. imeth objrtn Pointer_im_gChangeValue(object self, object val)
  49. { Pointer_iv_t *iv = GetIVs(Pointer, self);
  50.     iv->iVal = (void *) val; 
  51.     return self; 
  52. } 
  53.  
  54. imeth int Pointer_im_gHash(object self)
  55. { Pointer_iv_t *iv = GetIVs(Pointer, self);
  56.     double t; 
  57.  
  58.     t = .6125423371 * (double) (unsigned long) iv->iVal; 
  59.     t = t < 0.0 ? -t : t; 
  60.     return (int) (BIG_INT * (t - floor(t))); 
  61. } 
  62.  
  63. imeth int Pointer_im_gCompare(object self, object obj)
  64. { Pointer_iv_t *iv = GetIVs(Pointer, self);
  65.     void *sv, *ov; 
  66.  
  67.     ChkArg(obj, 2); 
  68.     if (ClassOf(obj) != CLASS) 
  69.         return oSuper(Pointer_c, gCompare, self)(self, obj); 
  70.     if ((sv=iv->iVal) < (ov=ivPtr(obj)->iVal)) 
  71.         return -1; 
  72.     else if (sv == ov) 
  73.         return 0; 
  74.     else 
  75.         return 1; 
  76. } 
  77.  
  78. imeth objrtn Pointer_im_gStringRepValue(object self)
  79. { Pointer_iv_t *iv = GetIVs(Pointer, self);
  80.     return vSprintf(String, "%lp", iv->iVal); 
  81. } 
  82.  
  83.  
  84. #line 85 "pointer.c"
  85.  
  86. objrtn    Pointer_initialize(void)
  87. {
  88.     static  CRITICALSECTION  cs;
  89.     static  int volatile once = 0;
  90.  
  91.     ENTERCRITICALSECTION(_CI_CS_);
  92.     if (!once) {
  93.         INITIALIZECRITICALSECTION(cs);
  94.         once = 1;
  95.     }
  96.     LEAVECRITICALSECTION(_CI_CS_);
  97.  
  98.     ENTERCRITICALSECTION(cs);
  99.  
  100.     if (Pointer_c) {
  101.         LEAVECRITICALSECTION(cs);
  102.         return Pointer_c;
  103.     }
  104.     INHIBIT_THREADER;
  105.     Pointer_c = gNewClass(Class, "Pointer", sizeof(Pointer_iv_t), 0, END);
  106.     cMethodFor(Pointer, gNewWithPtr, Pointer_cm_gNewWithPtr);
  107.     iMethodFor(Pointer, gCompare, Pointer_im_gCompare);
  108.     iMethodFor(Pointer, gPointerValue, Pointer_im_gPointerValue);
  109.     iMethodFor(Pointer, gStringRepValue, Pointer_im_gStringRepValue);
  110.     iMethodFor(Pointer, gHash, Pointer_im_gHash);
  111.     iMethodFor(Pointer, gChangeValue, Pointer_im_gChangeValue);
  112.  
  113.     ENABLE_THREADER;
  114.  
  115.     LEAVECRITICALSECTION(cs);
  116.  
  117.     return Pointer_c;
  118. }
  119.  
  120.  
  121.  
  122.